home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / misc / emu / AMIGHPv2a.lha / AMIGHPv2a / EXAMPLES / Z.s < prev    next >
Text File  |  1996-09-25  |  568b  |  54 lines
  1.     include    entries.i
  2.     con(5)    DOCODE
  3. Debut    con(5)    Fin-Debut
  4.  
  5. J    equ    $800F5
  6. I    equ    $800FA
  7.  
  8.  
  9.     GOSBVL    $0679B
  10. LAB0
  11.     D0=(5)    $800FA
  12.     A=DAT0    A
  13.     R0=A    A
  14.     GOSBVL    $067D2
  15.     GOSBVL    $06537
  16.     GOSBVL    $0679B
  17.     LAHEX    $800FA
  18.     D0=A
  19.     LCHEX    $00032
  20.     A=DAT0    A
  21.     ?C<A    A
  22.     GOYES    LAB1
  23.     GOTO    LAB2
  24. LAB1
  25.     GOSBVL    $067D2
  26.     A=DAT0    A
  27.     D0=D0+    5
  28.     PC=(A)
  29.     GOTO    LAB3
  30. LAB2
  31. LAB4
  32.     LCHEX    $000C8
  33.     D0=(5)    $800F5
  34.     A=DAT0    A
  35.     ?C>A    A
  36.     GOYES    LAB5
  37.     GOTO    LAB6
  38. LAB5
  39.     LCHEX    $0000A
  40.     D0=(5)    $800FA
  41.     A=DAT0    A
  42.     GOSBVL    $03991
  43.     C=B    A
  44.     D0=(5)    $800F5
  45.     DAT0=C    A
  46.     GOTO    LAB4
  47. LAB6
  48.     D0=(5)    $800FA
  49.     C=DAT0    A
  50.     C=C+1    A
  51.     DAT0=C    A
  52. LAB3
  53.     GOTO    LAB0
  54. Fin